home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / intro.dir / 00004_Script_dropz < prev    next >
Text File  |  1999-03-01  |  1KB  |  52 lines
  1.  
  2. property pSpr
  3. property pFadeCount
  4. property pActive
  5.  
  6. on new me, thisSpr
  7.   
  8.   set pSpr = thisSpr
  9.   set pFadeCount = 20
  10.   
  11.   return me
  12. end
  13.  
  14.  
  15. on drop me, underThis
  16.   
  17.   set the loc of sprite(pSpr) to the loc of sprite(underThis)
  18.   if random(3) = 2 then
  19.     set the member of sprite(pSpr) to member "drop02"
  20.     set pFadeCount = 10
  21.   else
  22.     set the member of sprite(pSpr) to member "drop01"
  23.   end if
  24.   
  25.   set pActive = TRUE
  26.   
  27. end
  28.  
  29.  
  30. on check me
  31.   
  32.   if pActive then set pFadeCount = pFadeCount - 1
  33.   if pFadeCount = 0 then
  34.     set the locH of sprite(pSpr) to 1000
  35.     set pFadeCount = 20
  36.     set the blend of sprite(pSpr) to 100
  37.     set pActive = FALSE
  38.     
  39.   else if pFadeCount = 10 then
  40.     
  41.     if the member of sprite(pSpr) = member "drop01" then
  42.       set the member of sprite(pSpr) = member "drop02"
  43.     end if
  44.     
  45.   else if pFadeCount = 5 then
  46.     set the blend of sprite(pSpr) to 80
  47.   else if pFadeCount = 3 then
  48.     set the blend of sprite(pSpr) to 50
  49.   end if
  50.   
  51. end
  52.